home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03038_Script_3038 < prev    next >
Text File  |  1983-01-27  |  285b  |  14 lines
  1. on toglipopart
  2.   global dove,correlati
  3.   set correlati to ""
  4.   set var to string(the windowlist)
  5.   if offset ("popup",var) then
  6.     close window "popup"
  7.     forget window "popup"  
  8.     if objectp (attore) then forget attore
  9.     --set dove to 0
  10.   end if
  11.   updatestage
  12. end
  13.  
  14.